% wasy.sty as of 17 Feb 1992 by Martin Wallmeier
%
% needs NFSS (New Font Selection Scheme by Mittelbach/Sch\"opf)
%
% the following name conflicts with AMS-Fonts (defined in amssymb.sty)
% resolved by prepending `wasy' before the names:
%
%    \lozenge   --> \wasylozenge
%    \therefore --> \wasytherefore
%    \varpropto --> \wasyvarpropto

\@ifundefined{selectfont}
     {\@latexerr{`wasy' style option can only be used
                  with the new font selection scheme}\@eha
      \endinput}{}
\new@fontshape{wasy}{m}{n}{%
   <5>wasy5%
   <6>wasy6%
   <7>wasy7%
   <8>wasy8%
   <9>wasy9%
   <10>wasy10%
   <11>wasy10 at10.95pt%
   <12>wasy10 at12pt%
   <14>wasy10 at14.4pt%
   <17>wasy10 at17.28pt%
   <20>wasy10 at20.74pt%
   <25>wasy10 at 24.88pt}{}
\def\wasy{\family{wasy}\series{m}\shape{n}\selectfont}

\font\tenwasy = wasy10
\font\sevenwasy = wasy7
\font\fivewasy = wasy5
\newfam\wasyfam
\newcount\wasyfamcount
\wasyfamcount=\wasyfam \multiply\wasyfamcount by 256
\def\wasy{\fam\wasyfam\tenwasy}
\textfont\wasyfam=\tenwasy
\scriptfont\wasyfam=\sevenwasy
\scriptscriptfont\wasyfam=\fivewasy
%%%%%% special macro
\def\overstrike#1#2{{\setbox0\hbox{$#2$}\hbox to \wd0{\hss
    $#1$\hss}\kern-\wd0\box0}}
%%%%%% special symbols
\def\male{\hbox{\wasy\char26}}
\def\female{\hbox{\wasy\char25}}
\def\currency{{\wasy\char27}}
\def\phone{{\wasy\char7}}
\def\recorder{{\wasy\char6}}
\def\clock{{\wasy\char28}}
\def\lightning{{\wasy\char18}}
\def\pointer{{\wasy\char9}}
\def\RIGHTarrow{{\wasy\char17}}
\def\LEFTarrow{{\wasy\char16}}
\def\UParrow{{\wasy\char75}}
\def\DOWNarrow{{\wasy\char76}}
\def\AC{\hbox{\kern0.5pt\wasy\char58\kern0.5pt}}
\def\HF{\lower0.9pt\hbox to 0pt{\kern0.5pt\wasy\char58\hss}%
        \raise0.9pt\hbox{\kern0.5pt\wasy\char58\kern0.5pt}}
\def\VHF{\hbox{\wasy\char64}}
\def\Box{\hbox{\wasy\char50}}\let\Square\Box
\def\XBox{\hbox{\wasy\char52}}
\def\Diamond{\hbox{\wasy\char51}}
\def\hexagon{\hbox{\wasy\char55}}
\def\pentagon{\hbox{\wasy\char68}}
\def\octagon{\hbox{\wasy\char56}}
\def\varhexagon{\hbox{\wasy\char57}}
\def\hexstar{\hbox{\wasy\char65}}
\def\varhexstar{\hbox{\wasy\char66}}
\def\davidsstar{\hbox{\wasy\char67}}
\def\diameter{\hbox{\wasy\char31}}
\def\invdiameter{\hbox{\wasy\char21}}
\def\varangle{\hbox{\wasy\char30}}
\def\wasylozenge{\hbox{\wasy\char53}}
\def\kreuz{\hbox{\wasy\char54}}
\def\smiley{\hbox{\wasy\char1}}
\def\frownie{\hbox{\wasy\char4}}
\def\blacksmiley{\hbox{\wasy\char2}}
\def\sun{\hbox{\wasy\char3}}
\def\checked{\hbox{\wasy\char8}}
\def\bell{\hbox{\wasy\char10}}
\def\eighthnote{\hbox{\wasy\char11}}
\def\quarternote{\hbox{\wasy\char12}}
\def\halfnote{\hbox{\wasy\char13}}
\def\fullnote{\hbox{\wasy\char14}}
\def\twonotes{\hbox{\wasy\char15}}
\def\brokenvert{\hbox{\wasy\char124}}
\def\wasytherefore{\hbox{\wasy\char5}}
\def\Circle{\hbox{\wasy\char35}}
\def\CIRCLE{\hbox{\wasy\char32}}
\def\Leftcircle{\hbox{\wasy\char73}}
\def\LEFTCIRCLE{\hbox{\wasy\char71}}
\def\Rightcircle{\hbox{\wasy\char74}}
\def\RIGHTCIRCLE{\hbox{\wasy\char72}}
\def\LEFTcircle{\hbox to 0pt{\wasy\char71\hss}\hbox{\wasy\char35}}
\def\RIGHTcircle{\hbox to 0pt{\wasy\char72\hss}\hbox{\wasy\char35}}
%%%%%% astronomy
\def\aries{\hbox{\wasy\char23}}
\def\ascnode{\hbox{\wasy\char19}}
\def\descnode{\hbox{\wasy\char20}}
\def\fullmoon{\hbox{\wasy\char35}}
\def\newmoon{\hbox{\wasy\char32}}
\def\leftmoon{\hbox{\wasy\char36}}
\def\rightmoon{\hbox{\wasy\char37}}
\def\astrosun{\hbox{\tensy\char12}}
\def\mercury{\hbox{\wasy\char39}}
\def\venus{\raise0.2ex\hbox{\wasy\char25}}
\def\earth{\lower0.3ex\hbox{\wasy\char38}}
\def\mars{\lower0.2ex\hbox{\wasy\char26}}
\def\jupiter{\hbox{\wasy\char40}}
\def\saturn{\hbox{\wasy\char41}}
\def\uranus{\hbox{\wasy\char42}}
\def\neptune{\hbox{\wasy\char43}}
\def\pluto{\hbox{\wasy\char48}}
%%%%%% APL characters
\def\APLstar{{\hbox{\wasy\char69}}}
\def\APLlog{{\hbox{\wasy\char22}}}
\def\APLbox{{\hbox{\wasy\char126}}}
\def\APLup{{\hbox{\wasy\char0}}}
\def\APLdown{{\hbox{\wasy\char70}}}
\def\APLinput{{\hbox{\wasy\char125}}}
\def\APLcomment{{\hbox{\wasy\char127}}}
\def\APLinv{{\hbox to 0pt{\tensy\char4\hss}\APLbox}}
\def\APLuparrowbox{{\hbox{\wasy\char110}}}
\def\APLdownarrowbox{{\hbox{\wasy\char111}}}
\def\APLleftarrowbox{{\hbox{\wasy\char112}}}
\def\APLrightarrowbox{{\hbox{\wasy\char113}}}
\def\notbackslash{\overstrike{\backslash}{-}}
\def\notslash{\overstrike{/}{-}}
\def\APLnot#1{\overstrike{\sim}{#1}}
\def\APLcirc#1{\overstrike{\circ}{#1}}
\def\APLvert#1{\overstrike{\vert}{#1}}
\def\APLminus{\raise0.7ex\hbox{$-$}}
%%%%%% diagrams
\def\photon{\hbox{\wasy\char58\char58\char58\char58}}
\def\gluon{\hbox{\wasy\char81\char80\char80\char80%
    \char80\char80\char80\char82}}
%%%%%% math characters
\def\Bowtie{\hbox{\wasy\char49}}
\def\leftturn{\hbox{\wasy\char34}}
\def\rightturn{\hbox{\wasy\char33}}
%%%%%% math operators as mathchars
\def\wasymathchardef#1#2{%
    \count255=\wasyfamcount
    \advance\count255 by#1
    \mathchardef#2\count255}
\wasymathchardef{12332}{\lhd}
\wasymathchardef{12334}{\rhd}
\wasymathchardef{12304}{\LHD}
\wasymathchardef{12305}{\RHD}
\wasymathchardef{12333}{\unlhd}
\wasymathchardef{12335}{\unrhd}
\wasymathchardef{12348}{\sqsubset}
\wasymathchardef{12349}{\sqsupset}
\wasymathchardef{12350}{\apprle}
\wasymathchardef{12351}{\apprge}
\wasymathchardef{12317}{\wasyvarpropto}
\wasymathchardef{24}{\invneg}
\wasymathchardef{12347}{\leadsto}
\wasymathchardef{8227}{\ocircle}
\wasymathchardef{12310}{\logof}
\wasymathchardef{4210}{\varint}
\wasymathchardef{4211}{\iint}
\wasymathchardef{4212}{\iiint}
\wasymathchardef{4213}{\varoint}
\wasymathchardef{4214}{\oiint}
%
%%%%%% new definitions
%
\def\newpropto{\let\propto\wasyvarpropto}
\def\newint{\let\int\varint \let\oint\varoint} % default limits
